﻿Public Class frmConsultar
    Public Cargar As String
    Private analista As New cAnalistas
    Private empresas As New cEmpresas
    Private usuarios As New cUsuarios
    Private datos_fijos As New cDatos_Fijos
    Private dgclick As Integer
    Private campos As ArrayList
    'llamado para la consulta
    Private Sub cmdEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEnviar.Click
        Dim Resultado As DataSet
        Select Case Cargar
            Case "Analistas"
                Resultado = analista.Consultar(txtConsulta.Text)
                dgResultado_Consulta.DataSource = Resultado.Tables(0).DefaultView
            Case "Empresas"
                Resultado = empresas.Consultar(txtConsulta.Text)
                dgResultado_Consulta.DataSource = Resultado.Tables(0).DefaultView
            Case "Usuarios"
                Resultado = usuarios.Consultar(txtConsulta.Text)
                dgResultado_Consulta.DataSource = Resultado.Tables(0).DefaultView

        End Select
        '------------------------------

    End Sub


    Private Sub tsMenu_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles tsMenu.ItemClicked

        Select Case e.ClickedItem.Name
            Case "Nuevo"
                Select Case Cargar
                    Case "Analistas"
                        Dim llenar_analistas As New frmLlenar_Analistas
                        llenar_analistas.Show()
                    Case "Empresas"
                        Dim llenar_empresas As New frmLlenar_Empresas
                        llenar_empresas.Show()
                    Case "Usuarios"
                        Dim llenar_usuarios As New frmLlenar_Usuarios
                        llenar_usuarios.Show()
                End Select

            Case "Editar"
                Select Case Cargar
                    Case "Analistas"
                        'capturar codiugo de analista
                        Dim llenar As frmLlenar_Analistas
                        llenar = New frmLlenar_Analistas
                        llenar.Show()
                        llenar.cboTipo_Identificacion.Enabled = False
                        llenar.txtNumero_Identificacion.Enabled = False
                        analista.Cargar(dgResultado_Consulta.Rows(dgclick).Cells(0).Value)
                        Select Case analista.Codigo_Tipo_Identificacion
                            Case "CC"
                                llenar.cboTipo_Identificacion.Text = "CC-Cedula de Ciudadania"
                            Case "TI"
                                llenar.cboTipo_Identificacion.Text = "TI-Tarjeta de Identidad"
                            Case "NI"
                                llenar.cboTipo_Identificacion.Text = "NI-NIT"
                        End Select

                        llenar.txtNumero_Identificacion.Text = analista.Numero_Identificacion
                        llenar.txtAnalista.Text = analista.Analista
                        llenar.txtDireccion.Text = analista.Direccion
                        llenar.txtTelefono.Text = analista.Telefono
                        llenar.txtEmail.Text = analista.Email
                    Case "Empresas"
                        'capturar codigo de empresa
                        Dim llenar As frmLlenar_Empresas
                        llenar = New frmLlenar_Empresas
                        llenar.Show()
                        llenar.cboTipo_Identificacion.Enabled = False
                        llenar.txtNumero_Identificacion.Enabled = False
                        empresas.Cargar(dgResultado_Consulta.Rows(dgclick).Cells(0).Value)
                        Select Case empresas.Codigo_Tipo_Identificacion
                            Case "CC"
                                llenar.cboTipo_Identificacion.Text = "CC-Cedula de Ciudadania"
                            Case "TI"
                                llenar.cboTipo_Identificacion.Text = "TI-Tarjeta de Identidad"
                            Case "NI"
                                llenar.cboTipo_Identificacion.Text = "NI-NIT"
                        End Select

                        llenar.txtNumero_Identificacion.Text = empresas.Numero_Identificacion
                        llenar.txtRazonSocial.Text = empresas.Razon_Social
                        llenar.txtDireccion.Text = empresas.Direccion
                        llenar.txtTelefono.Text = empresas.Telefono
                        llenar.txtEmail.Text = empresas.Telefono
                        llenar.txtPaginaWeb.Text = empresas.Pagina_Web
                        llenar.cboDepartamento.Text = datos_fijos.Nombre(empresas.Codigo_Municipio, "Dpto")
                    Case "Usuarios"
                        'capturar codigo de Usuario
                        Dim llenar As frmLlenar_Usuarios
                        llenar = New frmLlenar_Usuarios
                        llenar.Show()
                        llenar.cboTipo_Identificacion.Enabled = False
                        llenar.txtNumero_Identificacion.Enabled = False
                        usuarios.Cargar(dgResultado_Consulta.Rows(dgclick).Cells(0).Value)
                        Select Case usuarios.Codigo_Tipo_Identificacion
                            Case "CC"
                                llenar.cboTipo_Identificacion.Text = "CC-Cedula de Ciudadania"
                            Case "TI"
                                llenar.cboTipo_Identificacion.Text = "TI-Tarjeta de Identidad"
                            Case "NI"
                                llenar.cboTipo_Identificacion.Text = "NI-NIT"
                        End Select

                        llenar.txtNumero_Identificacion.Text = usuarios.Numero_Identificacion
                        llenar.txtPrimer_Nombre.Text = usuarios.Primer_Nombre
                        llenar.txtSegundo_Nombre.Text = usuarios.Segundo_Nombre
                        llenar.txtPrimer_Apellido.Text = usuarios.Primer_Apellido
                        llenar.txtSegundo_Apellido.Text = usuarios.Segundo_Apellido
                        llenar.dtpFecha_Nacimiento.Text = usuarios.Fecha_Nacimiento

                        If usuarios.Sexo = "M" Then
                            llenar.cboSexo.Text = "M - Masculino"
                        Else
                            llenar.cboSexo.Text = "F - Femenino"
                        End If
                End Select


        End Select
    End Sub

    Private Sub dgResultado_Consulta_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgResultado_Consulta.CellClick

        dgclick = e.RowIndex.ToString
    End Sub

    Private Sub Nuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nuevo.Click

    End Sub

    
    Private Sub frmConsultar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class